Plot[m=(a-100)/2, {a, 0, 200}]